home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gamers Delight 2
/
Gamers Delight 2.iso
/
Aminet
/
game
/
think
/
MADgic41.lzh
/
1990
/
Gato.s
< prev
next >
Wrap
Text File
|
1992-03-10
|
2KB
|
68 lines
;
; Warrior: Gato
; File name: gato.red
; Tournament: ICWST'90
; Standard: CWS'88
; Author: Cristobal Jimenez Lopez
;
beg dat 59
fire dat 0
beg1 dat 25
start mov care loop2
mov recons switch
spl trap
mov #810 forward
mov #-810 back
mov #25 beg1
make mov @beg1 <forward
mov @beg1 <back
djn make beg1
test mov #810 forward
mov #-810 back
mov #25 beg1
compare cmp <forward <back
jmp alarm
label cmp @beg1 @forward
jmp repair
salto djn compare beg1
loop2 jmp test
alarm mov count switch
mov #59 beg
mov #-2000 forward
copy mov @beg <forward
djn copy beg
add #2 forward
jmp @forward
repair mov @forward @beg1
mov forward loop2
back jmp salto
forward jmp 1
recons jmp -5
trap mov #800 desjmp
loop1 add #10 desjmp
jmz loop1 @desjmp
sub desjmp jmp1
add #1 jmp1
mov jmp1 @desjmp
switch jmp loop1
mov count alarm
mov #0 beg1
mov beg1 5000
dis mov beg1 <fire
mov count @desbom
add #5 desbom
jmn ajust 4996
desbom jmp dis #25
ajust mov #25 desbom
desjmp jmp -7
mov forward switch
djn split count
split spl -2
mov beg1 <fire
mov count alarm
jmn split count
mov count split
count dat 64
jmp1 jmp @jmp1
care jmp -8
end start